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PPPPPPPPPPPP 
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E 3 
| **FILE**1D**L INKSUBS 
| 
| 
| 
| 
| 
LL II1111 NN NN KK KK SSSSSSSE UU UU B88B8BBB8B SSSSSSSS 
LL 1111 NN NN KK KK SSSSSSSS UU UU BBBBBBBB SSSSSSSS 
LL I] NN NN KK KK SS UU UU BB BR SS 
LL I] NN NN KK KK S$ UU UU BB eB SS 
LL I] NNNN NN KK KK $$ UU UU BB BB SS 
LL I] NNNN NN KK K SS UU UU BB BB SS 
LL I] NN NN NN KKKKKK SSSSSS JU UU B88BBB8B SSSSSS 
LL I] NN NN NN KKKKKK SSSSSS UU UU BBBBBBBB SSSSSS 
LL I] N NNNN KK KK SS UU UU BB BB SS 
LL I] NN NNNN KK KK SS UU UU 8B BB SS 
LL I] NN NN KK KK SS UU UU BB BB SS cece 
LL I] NN NN KK KK SS UU UU BB BB SS . 
LLLLLLLLLL II1I1] NN NN KK KK $SSSSSSS UUUUUUUUUU +=BBBBBBBB SSSSSSSS cove 
LLLLLLLLLL i111] NN NN KK KK SSSSSSSS UUUUUUUUUU =BBBBBBBB SSSSSSSS cece 
LL III] SSSSSSSS 
LL III! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] S$ 
LL I] SS 
LLLLLLLLLi T1111 SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
j 
L 
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0001 O &title "LINKSUBS = Phone Link Subroutines’ 

Bong 0 module Linksubs 

0003 1 ident='V04-000") = begin 

0004 1 

0005 1! 

0006 1 Lee A AAA A EEE REE AEA ERATE EEE RTE e 

0007 1 !«* 

0008 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 

0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 

Baie : > ALL RIGHTS RESERVED. * 
i® * 

Oole 1 '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

091 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

0015 1 i* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

0017 is TRANSFERRED. * 
oo * 

0019 1 '* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

0020 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

b053 : w CORPORATION. * 
te ® 

0023 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR oer OF ITS * 

boSe : .* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 
® = 

0026 1 !* * 

0027 1 See RRR ERA EEA AKEAKeAKee Kee e 

0028 1! 

0029 1 

0030 1 !++ 

OoR : Facility: VAX/VMS Telephone Facility, Phone Link Subroutines 

0033 1! Abstract: This module contains the subroutines necessary to support 

0034 1! the establishment and use of phone Links, both local 

0035 1! and remote. 

0036 1! 

0037 1! ; 

0038 1 ! Environment: 

0039 1! 

sre ! Author: Paul C. Anagnostopoulos, Creation Date: 17 November 1980 

9 : Modified By: 

0044 1! v03-006 a bo Benn Schreiber 8-Dec-1983 

0045 1! dify mailbox name so that all numeric usernames 

0046 1! = not look Like cluster device names. Also allow 

nt ' SS$_IVDEVNAM from SASSIGN. Convert to use $TRNLNM. 

0049 1! v03-005 PCA1020 Paul C. Anagnostopoulos 27-May-1983 

0050 1! Add check for shared memory mailboxes and signal fatal 

0051 1! error if present. 

6036 1! 

0055 1! 

0054 1! v03-004 MHB0088 Mark Bramhall 8-F eb-1983 

it F3 : Corrected underscore handling in PHNSESTAB_ CINK. 

0057 1! v03-003 MHB0087 Mark Bramhall 17-Jan-1983 


Nn —————— 
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v04-G600 14- ~3ep-19 4 12:53:27 PHONE .SRCJLINKSUBS.B32;1 (1) 
; 8 058 1! Added ' rea $s through" tol capability. 

. 9 059 +1! PHNSESTAB_LINK now always displays its status via 

3 4 +44 : PHNSINFORM; its callers just check the returned status. 

a 0062 1 v03-002 CAI 004 Paul C. Anagnostopoulos 8=Nov-1982 

; 0063 1! ASSIGN no longer returns SS$_IVDEVNAM when assignin 

; ¢: Bove : > elinen that doesn't exist. It now returns SS$_NO UCHDEV. 

: 66 0066 1! V03-001 PCA0041 Paul Anagnostopoulos 26-Mar-1982 

3 of 4 ; Major changes to convert from process name to user name. 
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Asbttl "Module Declarations’ 
; Libraries and Requires: 


library ‘sys$library:starlet.l32'; 
require ‘phonereq'; 


' 
Table of Contents: 


forward routine 
phn$mbx_enable: novalue, 
phn$estab_Link, 
phn$mbx_name: novalue, 
phn$break_link: novalue, 
phn$break_call: novalue, 
phn$send_smb: novalue 
phn$force_Links: novalue, 
phn$forced_link: novalue; 


1 
External References: 


external routine os 
phn$term_characteristic, 
phn$cmp_Ttarget, 
phn$fresh_screen, 
phn$inform, 
phn$kill_pub, 
phn$make_pub, 
phn$make_tsb, 
phn$queue_smb, 
phn$read_slave, . 
uns$net_connect: addressing_mode(general); 


' 

; Own Variables: 

bind 
Lnm_process_desc = $descriptor(*LNMSPROCESS'), 
Lnm_job_desc = $descriptor('LNM$JOB' 


AX=11 BLi 
PHONE . SRC 


slave_task_desc = Sdescriptor(*PHNSSLAVE_TASK_SPECIFIER'); 


j 
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64 
27 PHONE .SRCJLINKSUBS .B32; 1 (3) 


; 118 pie } Rsbttl *PHNSMBX_ENABLE = Enable Mailbox ASTs' 

; 118 444 1 | Functional Description: , 

; 119 445 1! This routine is cailed to enable an AST for our receive mailbox. 
; 120 0446 1! This allows us to be notified when some other process puts a 

3 Ye 0447 1! steering message into our mailbox. The AST itself just creates 
. | ¢ 0448 1! a standarc ng message block from the message. The message 
: 1$7 biee ! has the following three parts: 

: 125 0491 1. The 1=byte message type code. 

: 127 bea§ 1! ae The complete node/user name string of the sender, 
: \s8 peed : followed by an eofrom character. 

: lw be28 : 3. Any additional message text, if required. 

: 132 0458 ; Formal Parameters: 

: : none 

.. Ts 0460 1! 

; 135 0461 1 ! Implicit Inputs: 

3 18 Beee . global data 

: 138 0464 1! Implicit Outputs: 

: FA Rete ’ global data 

: 161 0467 Returned Value: 

> 143 0469 1: 

: re Bee : Side Effects: 

> 146 0472 1 i-- 

: 147 04735 «1 

: 4148 0474 1 : p 

; 133 oh $ global routine phn$mbx_enable: novalue = begin 

: 151 0477 2 own 

.: ta 0478 2 mbx_iosb: Block S -bytel, ; 

3 se? 9h 44 3 mbx_buf: vector(phn$k_mbxsize,bytel; 

: 155 0481 2 local 

; 156 0482 2 status: long, : 

130 ott $ op: ref pub; ! Pointer to our PUB. 

: 159 0485 : 

: 160 0486 ! This internal routine is the AST handler. We have to build a standard 
3 161 ot $4 2 ! steering message block from the mailbox data. 

: 163 0489 routine mbx_ast: novalue = begin 

: 165 0491 3 Local 

: 166 049 status: long, : 

; + 4 ot mbx_buf_dsc: descriptor; 

: 169 0495 ! First we have to check the IOSB from the mailbox read. 

: A 44 ; check (.mbx_iosb[0,0,16,0]); 


=<— 
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v04-000 PHNSMBX_ENABLE - Enable Mailbox ASTs 4-Sep-1984 12:53:27 PHONE ..SRCJLINKSUBS.B32;1 (3) 
; 173 0499 ! Now we build a descriptor for the message text portion of the steering 

s ire Bens i MesSayce. We can then queue an SMB with the message type and text. 

: 176 030 mbx_buf_dsc Len = .mbx iosb 2,0,16,0] - 1; 

s 77 050 mbx_ buf dsc = mbx 

; 178 0308 phn$queue_sm ( abe _butld, mbx_ buf dsc); 

: 139 B208 ! Finally, we have to enable another read from our mailbox. 

: 18¢ 0508 3 phn$mbx_enable(); 

; 18 0509 return; 

: «(184 0510 

> «185 0511 2 end; 


-TITLE LINKSUBS LINKSUBS = Phone Link Subroutines 
-IDENT \v04-000\ 


-PSECT SPLIT$,NOWRT,NOEXE,2 


53 53 45 43 GF 52 50 24 4D 4E 4C 80800 P.AAB: ty chads : 
00000008 Q000C P.AAA: an NG 11 $ 
00000000° 00010 . DDRESS P.AAB : 

42 4F 4A 26 4D GE 4C 00014 P.AAD: .ASCII \LNMSJOB\ 
0001B -BLKB 1 

00000007 QO01C P.AAC: .LONG 7 : 

00000000" 00020 -ADDRESS P.AAD ; 

5F 4B 53 41 54 SF 45 56 41 4C 53 24 4E 48 50 ait P.AAF: . ASCII \PHNSSLAVE_TASK_SPECIFIER\ : 
52. 45 49 43 45 50 53 00033 : 

00000018 Q003C P.AAE: .LONG 24 : 

00000000° 00040 -ADDRESS P.AAF : 


-PSECT SOWNS,NOEXE,2 
00000 MBX_IOSB: 

-BLKB 8 
00008 MBX_BUF:.BLKB 256 


LNM_ PROCESS DESC= P.AAA 
LNM~ JOB “AA 
SLAVE OFKSK. DESC= _—P.AAE 
-ERTRN PHNS$_OK, PHN$_ANSWERED 
XTRN PHN$ BUSYCALL> PHNS$_CANCALL 


"EXTRN Bune “RESET Tons 


S“REJEC 
*EXTRN PHNS- SEND INGMAIL 

"EXTRN PHNS$~ =BADCHD. Pans _BADHELP 
"EXTRN PHINS “BADMA 

“EXTRN PHNS™ ~BADSMB, Pans _BADSPEC 
* EXTRN PHNS” “HELPMISSING 

~EXTRN PHNS_ IVREDUNANS 


kK 3 
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XTRN PHN$_IVREDUNCALL 
TRN PHNS$_LINKERROR, PHN$_NEEDUSER 
N$_NOROLDS 


x 
x 
x N 0 

XTRN PHNS$_NOPROC *PHNS NOTCON 

XTRN PHNS ONL YNOBE PHNS _ PHONEBUSY 
XTRN PHNS-REMOTEERROR 

XTRN PHNS~ TARGTERM, PHN$_ UNPLUGGED 

x ~ *PHNS_SHAREDMBX 

XTRN PHNS-INPUTTERM, PHNS$GQ_NODE * NAME 
x HOOK 

: 
x 


$ WITCH 
TRN PHNS$GL~ “WTEUP PORT SIZE 
TRN PHNS$GB_SCROLL, PHN$GQ_PUBHEAD 
“EXTRN PHNSGB-FLAGS, PHNST eat LO ARAC TERISTIC 
*EXTRN PHNSCH P TARGET DANSE RESH _SCREEN 
eEXTRN ge Lg HNSKILL PUB 
~EXTRN PHNSHAKE PB. MPHNSH ARE_TSB 
"EXTRN PHNSQUEUE_ SMB, PHNSREAD SLAVE 
-EXTRN UNSSNET_ CONNECT 


-PSECT $CODES,NOWRT,2 


eeeeeeeseeeeee 
MmMmMmmMmmmmmmmmmcrn 


0004 00000 MBX_AST:.WORD Save R2 5 0489. 
52 0000" CF 9€ 00002 MOVAB mex. 1988, R2 ; | 
5E 08 C2 00007 SUBL2 : | 
OA 62 E8 OO00A BLBS MBX 0 SB, 1$ ; 0497 
7E 62 3C 0000D MOVZWL MBX~10SB, = (SP) : | 
000000006 00 01 FB 00010 CALLS Hi, LIBSSIGNA F 
E 02 A2 01 A3 00017 1$: SUBW3 #1, MBX TOsBe3, MBX_BUF _DSC : 0502 
04 AE 09 A2 9E 0001C MOVAB MBX_BUF?1, MBX_BUF_DSC+% : 0503 
SE DD 00021 PUSHL SP : 0504 
7 08 A2 9A 00023 MOVZBL MBX_BUF, -(SP) : 
00006 02 FB 00027 CALLS #2, ~BUNSQUEVE SMB ; 
0000V CF 00 FB 0002C CALLS #0, PHNSMBX_ENABLE : 0508 
04 00031 RET > 0511 


; Routine Size: 50 bytes, Routine Base: $CODE$ + 0000 


-—— 
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Vv PHNSMBX_ENABLE = Enable Mailbox ASTs 14-Sep-1984 12:53:27 PHONE .SRCJLINKSUBS .832; 1 
: 187 51 ' To actually enable a read from our mailbox, we just do the appropriate 

; is 0318 ! mailbox $qio. tie 

: 190 $848 op = :Phn$9q-pu pupheedl 0): 

3; «6191 & B28 status = $qio( eam ages ourmbxefn, 

: 136 P 051 ch Rosie. (pub. w po 

: 19 P 0518 func=io ree dvBlk 

: 194 P 0519 jiosb=mbx_i 

3 195 P 0520 setesreaia., wast. 

; 196 P 0521 pl=mbx_buf, 

: 197 05 ; pe=onnsk, mbxsize); 

; 198 b2s § check (.status 

; 199 0524 return; 

; 200 0525 2 

; 201 0526 1 end; 


-EXTRN SYS$QI10 


00 00000 -ENTRY PHNSMBX_ENABLE, Save nothing : 

50 0000G CF 00 00002 MOVL PHNS$GQ_ PUBHEAD, OP 3 

7E 7C 00007 CLRQ == ; 3 

7E 7C 00009 CLRQ 3 

7E 0100 8F 3C 00008 MOVZWL 1256, -(SP) ; 

0000" CF 9F 00010 PUSHAB X_BUF : 

7E D4 00014 CLRL “| ) 3 

B5 AF 9F 00016 PUSHAB MBX_AST : 

0000" CF 9F 00019 PUSHAB mex. 10SB : 

31 DD 0001D PUSHL : 

7E OOF4 CO 3C OOOTF MOVZWL FAA (OP), -(SP) : 

05 DD 00024 PUSHL # i 

00000000G 00 OC FB 00026 CALLS #12, SYS$QI0 : 
09 50 €8 0002D BLBS STATUS, 1$ : 

50 DD 00030 PUSHL STATUS ; 

000000006 00 01 FB 00032 CALLS #1, LIBSSIGNAL : 
04 00039 1$: RET : 


; Routine Size: 58 bytes, Routine Base: $CODE$ + 0032 
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you~ 000 BHNSESTAB_LINK = Establish a Link 1o=geh=1384 93:83:33 = EBMone BacSEraesueg a 5801 age (8 ve 
3 03 0327 1 Hsbttl "PHNSESTAB_LINK - Establish @ Link’ ; 
: 205 §2 § 1 i Functional Description: : 
; 08 0530 1! his routine is called to establish a Link between us and some other ; 
; 20 0531 1: place in the world, There are four possible cases: 3 
: 208 05 ¢ ii 1. A Link between us and ourselves. ; 
; 209 05 ii ¢: A Link between us and some other local us : 
; 2 0534 1 | " A Link between us and a remote node (for Intormet fen). : 
: $13 82 2 : | ‘ A Link between us and some other remote user. : 
: $18 0537 1! Formal Parameters: ; 
3 $i¢ 0538 1 target_spec Address of descriptor of complete node/user name spec 3 
: si? 3e72 1: of the target. ; 
3 0 1 pub_address Address of longword in which to return address of PUB : 
, ee 0541 1! describing established Link. The PUB is marked 3 
Be Be noorers Sf 
: 220 0544 1! Implicit Inputs: | : 
: $$) Beez : global data : 
: $38 0547 1 | Implicit Outputs: : 
: Sse bee5 ! global data | : 
: 356 Sh aeage By as target invalid | 
: n adspec arget spec syntax was inva ° Y : 
; 228 §22¢ 1! a cantreseh tonket reach the Serger right now. 3 
; en 0553 1! phn$_needuser Tried to establish Link to home node w/o user name $ 
; 230 0554 1! phn$_nopriv Do not have the necessary privileges. $ 
: 2) 0555 1! phn$_noproc No process owned by the user is available. F 
3 @se 0556 1: phn$_remoteerror Some sort of error during remote 1/0. 3 
>” Zan 0557 1! hn$_targterm None of the user's terminals are usable by PHONE. 3 
: $3e bee6 ' ECnet status Problem with remote Link. 3 
: 236 0560 1 ! Side Effects: | : 
$ esr 0561 1! Any error is displayed via PHNSINFORM; all callers should only be 3 
; $36 $366 : & checking the returned status. | : 
: 240 0564 1 i- | : 
: 241 0565 1 3 
3s 242 0566 1 ; 
: sez £54 § global routine phn$estab_link(target_spec,pub_address) = begin : 
: 245 0569 2 own | : 
: $29 6279 ; path_error_done: byte; | : 
: $i8 b258 ; nou ore path. error(error_code, fao_count, fao_text): novalue = begin : 
: ui 3 
; 250 0574 3 nul lparameter; 3 
ae +) 0575 4 if not .path_error_done then ( 3 
: tee 0576 4 path_error_doneé = tru ug; 3 
3; 253 0577 4 if not mai (paranetert $ then : 
: See b256 ? a phn$inform(.error_code, .fao_text) ; 
; $26 9380 $ : phn$inform(.error_code); : 
: 258 0582 2 end; * : 
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0000" 


00006 
00006 


; Routine Size: 43 bytes, 


oor 
Wr 


CF 


CF 


Routine Base: 


preset (tdsciy. length 


N 3 
16-Sep-1984 02:11:44 -VAX-11 B 
1o- 90071387 95:13:35 


«PSECT $OWNS,NOEXE,2 
00108 PATH_ERROR_DONE: 
-BCKB 1 


-PSECT $CODE$,NOWRT,2 
0000 00000 PATH_ERROR: 
- WORD 


. Save no 
0000" CF €8 00002 gree” BAYS Coe O Bone. 2s 
01 90 09007 MOVB #1, PATH. ERRORS DONE 
6¢ 91 0000C (MPR CCAP), #37 
TT iF O000F BLssu i$ 
0c AC D5 00011 STL 12 (AP) 
O€ 13 00014 Beal so1$ 
0c AC DD 00016 PUSHL FAO. TEXT 
04 AC DD 00019 PUSHL ERROR. CODE 
02 FB OOO0IC CALLS #2, PANSINFORM 
04 00021 RET 
04 AC DD 00032 1$:  PUSHL_~— ERROR. CODE 
01 FB -00095 CALLS #1, PANSINFORM 
04 0009 28: —sORET 


SCODES + 006C 


target_spec_dsc = .target_spec: descriptor; 


own_described_buffer(user_name,12), 
on 
own_described bef ter(tera, punter 7 


bye, Wtetetgoece tater, Tiel ee 
0, dtype! = dsc$k_dtype_t 
dsc$b_class] = deesk “cles3_¢ 


uplit(word(12), sword’ ipis_ username), 


Long(user_name+ 
Long(user_name) , 

word(4) word( pis. owner), 
pong: arent pid), 


wor dt7y: Ry teed be terminal), 
Long(term_number+8 

tong( term. number), 

Long(0) 


: 259 0583 2 

: 260 0584 2 bind 

; 261 0585 2 

3; 262 0586 2 

; 263 0587 2 own 

3: 264 0588 2 

3; 265 0589 2 parent_pid: 

: 266 0590 2 

3s 267 0591 2 path. List: block€dsc$k_d_ 
; 268 0592 2 

3: 269 0593 2 

s 270 0594 2 | 

2 ery 0595 2 bind 

; $76 0596 2 get_proc = 

s er 0597 2 

: 274 0598 2 

s 2 0599 2 

3: 26 0600 2 

: $f 0601 2 

3; 278 44 

s ay 060 

: 280 0604 

3; 281 0605 

; see 060 

; 28 060 local 

; 6284 0608 status: long, 
3; 285 0609 tp: ref pub, 


! Pointer to new target PUB. 


iss-32 V4.0-742 
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Cdsc$a_pointer] = 6); 


Page 
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V 

; 286 
; 287 
; 288 
; 289 
; 290 
; a 
; oe 
5 gue 
; 303 
; 304 
; 305 


“v 
—t 
rw 


=1984 02:11:44 AX=11 Bliss-32 V4.0-742 
1984 12:53:27 PHONE «$R RIL INKSUBS .B32; 1 


mo 


op: ref pub, ! Pointer to our PUB. 
wild_pid: long, 
potential: long, usable: long; 


! We begin by making a PUB for this Link. If we can't, just return a status. 
status = phn$make_pub(.target_spec,.pub_address); 
if .status eglu pfin$ badspec then ( 

phn$inform(phin$_badspec); 

return phn$_badSpec; 


); 
check (.status); 
tp =. .pub_ address; 


! Now we split up depending upon whether it is a local or remote Link. 


WwwNnonoenororononys 

oouUooouowuno 

—OOONAUEW 
OOoooooooooooQooooooooCoooooOooO ur 
DRARAEAAAAAAAAAAAAAAAAAAAAAIAaAS re 
WWWAWWANWNINWWNNIPIPIPOPPONPPYNTNYDY 2 PS Oe ee aS 
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3 rl 

; 

; 3 

7 

3 2 

; 2 

3 2 , 

; 3 begin 

3 3 bind 

; 3 target_tsb = tpCpub_b_tsbj: 

= : target_name = target_ tsbltsb, . ya target_tsb(tsb_w_tkncountJ]: descriptor; 
3 $00 : if not .target_tsb(tsb_v_remote] then ( 

: 309 4 ! We have a local Link, Make sure a user name was specified 

; #19 : i im the spec. We can't make a Link just to our own node. 

; sie 5 if not targety peat ree . gusers then ( 

: 63D 06 5 kiTl_pub¢ 

: 63M 0638 5 phnek tt pub\ §P OE 

s 315 0639 5 return phn$_needuser; 

; 36 0640 4 FE 

s SIV 0641 4 

; 318 0642 4 ' Now we split up depending upon whether we are Linking to ourselves 
; SW 0643 4 i or another local user. 

; 320 0644 4 

s Sel 0645 4 = -phn$gq- pubhead(0]; 

; $56 poet : | cnn cmp_target(tpLpub_b_tsb],opLpub_b_tsb]) then 

; 324 0648 4 : We are Linking to ourselves. Just get the channel from 
3; Ses 0649 4 ' our PUB and fill it into the new PUB. If there isn't one 
: 326 0650 4 ! we didn't have sufficient privilege. 

» Ser 0651 4 

; 328 0652 5 if opto w channel] nequ 0 then ( 

, Sey 0653 5 tp[pub_w channel] = .opCpub_w_channel]; 

3; 330 0654 5 return phin$_ok; 

3. UBS 0655 5 ) else ( 

s 332 0656 5 phn$kill_pub(.t 

3 6So2 0657 5 ennSinfota(phns- 4 ree 

3 35m 0658 5 return phn$_nopriv; 

3s 355 0659 4 ds 


—_———_—_— 
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v04-000 PHNSESTAB_LINK = Establish a Link 14-Sep-1984 93:53:35 PHONE .SRCJLINKSUBS.B32;1 : (6) 
; 33 0660 4 ! We are Linking to another local user, We must determine if 
; 8 0661 4 ! anyone who is logged in fits the bill. 
; SF p66¢ 4 : 
; 340 0663 4 potential = usable = 0; 
; 341 0664 4 wild_pid = <1; 
; ks 0665 5 Loop ( 
; 0666 5 : : 
> 344 0667 5 ! Get information on the next process. If there aren't 
: a5 0668 5 ! any more, then we're done. 
Be HRS sgetiptucetoconst getiotet 
: status = $getjpiw(efn=phn etjpiefn, 
: 348 P0671 8 See ep dedreu’ \a-pié, 
: 349 067¢ 5 itmlst=get_proc); 
; 350 0673 5 = 
s Sol 0674 5 exitif (.status eqlu ss$_nomoreproc); 
s ioe 0675 5 
; ao 0676 5 ! If we got a process, then determine if it is a detached 
> 354 0677 5 ! interactive process owned by the target. 
3 39 0678 5 ‘ 
; 356 0679 6 if .status eqlu ss$_normal then ( 
| war 0680 6 
; ioe 0681 6 if ch$eql(.target_nameClen],.target_name([ptrJ, .user_name[len],.user_name[ptrj],’ ') 
; 359 0682 6 -parent_pid eqlu_0 an 
; 360 0683 7 -term_numberCLlen] nequ 0 then ( 
3. 636) 0684 7 
: 362 0685 7 ! We got a potential candidate. Make sure that 
: 363 0686 7 ! their terminal is usable by PHONE. 
s 366 0687 7 ; ; 
3 3e? 0688 7 inc (potential); a 
; 366 0689 7 if phn$term_characteristic(term_number,tt$m_scope) then 
s Jer 0690 7 inc (usable); 
; 368 0691 6 F 
; 36 0692 5 iF 
s 370 0693 4 3 
; ae 0694 4 
$ 6pf2 0695 4 ! If there are no potential processes, or there are but no usable 
: a7 0636 : ' terminals, then return an appropriate status and flush the Link. 
s SYS 0698 5 if .poteatial eqlu 0 then ( 
; 3 0699 5 phn$kill_pub(.tp); 
s S77 0700 5 phn$inform(phn$_noproc); 
: 378 0701 5 return phn$_noproc; 
: 379 0702 4 ds 
; 380 0703 5 if .usable eqlu 0 then ( 
s Sel 0704 5 phn$kill_pub(.tp); 
: $68 0705 5 phn$inform(phn$_targterm) ; 
s 385 0706 5 return phn$_targterm; 
; 6384 0707 4 ); 
3. 3e2 0708 4 ; . : 
; 386 0709 4 : Now we must create a receive mailbox for the target. We begin by 
; wer 0710 4 ! building a name for the mailbox and trying to assign to it, in 
; 388 0711 4 ! case someone else has already created it. 
; 389 0712 4 
; 7 0713 5 begin 
; So 0714 5 Local 
: 0715 5 
; 0716 5§ 


local_described_buf fer (mbx_name,4+32); 
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Be 93:55: 


244 
:27 PHONE .SR 


phn$mbx_name(target_name,mbx * oi 
status = $assign devnans mbx_f 
chan= tp pub. : "chennet 3): 
if (.status nequ $s$_ nosuchdev) 
and (.status nequ ss$_ {ydevnen) then ( 
check (.status); 
return phn$_ ok; 


! Nope, mailbox doesn't already exist. Create a permanent one with 
i the name and mark it for deletion so we don't leave crud around. 


status +. Se 
chan=tpLpub_w_channel], 
maxmsg=phn$k_mbxsize, 
: Lognam=mbx _name) ; 
if .status eqlu ss$_nopriv fhen ( 
phn$kill_pub(.tp); 
phn$inform(phn$_ nopriv); 
return phn$_nopriv:; 


iF 

check (.status 

status = Sdelnbx(chane. tpCpub_w_channel]); 
check (.status); 

return phn$_ ok; 


end; 
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v04-000 PHNSESTAB_LINK = Establish a Link 14-Sep-1984 12:53:27 PHONE ..SRCJLINKSUBS .B32; 1 (7) 
3 rit 0745 1 We are to establish a Link to a remote node or user. This requires 
> 424 0746 : uS to make a logical Link to the remote node. The so-called task specifier 
: 425 0747 : is built as follows: 
> 426 0748 1 normal case: Cnode::...Jnode::''29=' 
; rts Bree ; : debugging: {whatever is in PHNSSLAVE_TASK_SPECIFIER} 
: t$2 0751 phn$Sinform(phn$_decnet link); 
; 430 O76 3 : 
s 463) 0753 4 begin 
; 432 0754 4 |. 
: 03 Ee Salter bltsb_q_tkndsc, 0J: descri 
; C whole_target = target_tsbltsbd_q_tkndsc, : descriptor; 
: 435 0757 & . : 
; 436 0758 4 local : 
; 437 0759 4 trninmlst : Sitmlst_decl(items=1), 
: 438 0760 4 local_described_buffer(specifier_buf, nam$c_maxrss); 
;. 659 0761 4 
; 440 the 4! 
3; 441 0765 4 ! Translate PHNSSLAVE_TASK_SPECIFIER (used for debugging only). Look in 
3 ae 4h¢: : the process table and the job table (If not found in process table). 
> 444 P 0766 4& Sitmlst_init(itmlst=trninmlst, 
> 445 P 0767 4 itmcod=|nm$_string,bufadr=.specifier_buf(Cptr], 
3 as Bree : bufstz=nam$c_maxtss,ret!en=specifier_buf)); 
; 448 P0770 4 status = $trninm(attr=ZREF (Lnm$m_case_blind), 
; 449 P0771 4 tabnam=|nm_process_desc, 
; 450 P0772 4 Lognam=slave_task_desc, 
> «(451 0773 4 itmlst=trninmlst); 
: 452 0774 4 
; 453 0775 4 if .status nequ ss$_normal 
; 454 0776 5 then begin. 
3; 455 0777 5 specifier_buflClen] = nam$c_maxrss; , 
: 456 P0778 5 status = $Strninm(attr=ZREF ULnm$m_case_blind), 
; 457 P0779 5 tabnam=|nm_job_desc, 
; 458 P 0780 5 Lognam=slave_task_desc, 
; 459 0781 5 itmlst=trninmlst); 
; 460 0782 4 end; 
; 461 07835 4. 
: 462 0784 5 if .status nequ ss$_normal then ( 
: 463 0785 5 ch$copy(.whole_targetClen] - .target_name(len], .whole_target(ptr], 
> 464 0786 5 5, uplit byte(**'29=""), ' ', 
; 465 0787 5 _., nam$c_maxrss, .specifier_buf(ptr]); 
: 466 0788 5 specifier_bufllen] = .whole_targetClen] - .target_name[len] + 5; 
; 467 0789 4); 
: 468 0790 4 ° , — 
; 469 0791 4 ! Now we can pe tually create the logical Link to the remote node. This is 
: 470 4454 4 ! using the UNS$SNET_CONNECT routine. It will use the ‘‘pass through" protocol 
; $7) 18s, 2 ! if needed to make the connection. The final routing is also returned. 
: 473 0795 4 path_error_done = false; : 
: 474 0796 4 status = uns$net_connect(specifier_buf, tpCpub_w_channel], 
3; 475 0797 4. » path_list, 0, path_error); 
: 476 0798 5 if not .status then ( 
3: 677 0799 5§ phn$kill_pub(.tp); 
; 478 0800 5 if not .path_error_done then 
: 479 0801 5 phn$inform’. status); 
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Voe=000 PHNSESTAB_LINK = Establish a Link 1028001 38e 05:43:39 PHONE .SRCJLINKSUBS .B32; 1 . (7) 
; 480 ert 5 return .status; 
: 481 0805 4); 
; 48 0804 4 
3 ret B88? ? ! Check to see if the routing needs updating. If so, do so. 
: 485 0807 4 if not ch$eql(.path_listClen], .path_listCptr], 
; 486 0808 4 -whole targetClen] - .farget_nameLlen], .whole_target(ptr], 
; 487 0809 5 * ') then 
; 488 0810 5 Local 
; 489 0811 5 dsc_cnt, path_len, path_ptr; 
; 490 pai¢ 5 chSmove. target nameClenJ, star et poseyetrs -specifier_buflptr]); 
> 491 0813 5 ch$move(.path_listClen], .path_listCptr], .whole_target(ptrJ); 
: 492 0814 5 ch$move(.target_nameClen], .specifier_buf(ptrJ, . 
> 493 0815 5 ; .whole targecCptr + .path_listLlen]); 
7 494 0816 5 whole_targetClen] = .path_listClen] + .target_name[lenJ; 
: 495 0817 5 dsc_cnt = 1; 
3; 496 0818 5 path_len = .whole_target(len); 
; 497 0819 5 ath_ptr = .whole_target(ptrJ; 
; 498 0820 6 oop ( 
; 499 0821 6 bind 
; $00 0822 6 _. dsc_ptr = target_tsb(tsb_q_tkndsc, .dsc_cntJ: descriptor; 
: 501 0823 7 if (.path_len neg 0)" and cenprcher(.pgth gt?) eql '_') then ( 
> 502 0824 7 whole_targetLlen] = .whole_targetClen] - 1; 
; 503 0825 7 ch$move((path_len = .path_Ten - 1), .path_ptr + 1, .path_ptr); 
: 504 0826 6 ); 
; 505 0827 6 ase pers Lend = .path_len; 
> 5306 0828 6 dsc_ptr(ptr] = sath pers 
; 507 0829 6 exitif ((path_ptr = th$find_ch(.path_len, .path_ptr,. ':')) eql 0); 
: 508 0830 6 path_ptr = .path_ptr + 2; 
; 509 0831 6 dsc_ptr(len] = .path_ptr - .dsc_ptr(ptr]; 
: 510 0832 6 path_len = .path_len’- .dsc_ptrflen]; 
s OT) 0833 6 dsc_cnt = .dsc_cnt + 1; 
; Si 0834 5 b3 
gs STS 0835 5 target_tsb(tsb_w_tkncount] = .dsc_cnt; 
> 514 0836 4); 
z 319 0837 4 
; 516 0838 3 end; 
; OV 0839 3 ae : 
5 318 Opes ; ! Now we have to do some more work if it's a Link to a remote user. 
; 520 0842 4 if .target_tsb(tsb_v_user] then ( 
a ey 0843 4 ; 
$ See 0844 4 ! Now we send a special steering message to the network slave, 
3; Des 0845 4 : esk ing it to verify the existence of the target user. 
: 524 0846 4 ! It will send us back a status from that verification. 
3 de> 0847 4 
: 526 0848 4 local / 
: 25h bash 2 local_described_buffer(verify_status,4); 
3 Se? 0851 4 phn$send_smb(.tp,smb__slave_verify,target_tsb[tsb_q_tkndsc,0]); 
; 530 Ob 4 status = phn$read_slave(.tp[pub_w_channelJ,verify_sfatus,true); 
3; «3a 0853 5 if .status nequ phin$_ok then ( 
s S52 0854 5 phn$break_Link(.tp,smb__slave_done); 
3 335 0855 5 phn$Sinform(.status); 
; 534 0856 5 return .status; 
s $39 0857 4 ); , 
; 536 0858 5 if ..verify_status(ptr] nequ phn$_ok then ( 
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phn$inform(. 
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~PSECT $PLIT$,NOWRT,NOEXE,2 


000C 00044 «WORD 12 
0202 00046 WORD 514 
00000000' 00048 ADDRESS USER_NAME+8 
00000000 0004¢ -ADDRESS USER_NAME 
0004 00050 ORD 4 
0303 00052 WORD 771 
00000000" 00054 «ADDRESS PARENT_PID 
00000000 00058 LONG 0 
0007 Q005C -WORD 7 
0310 O005E WORD 797 
00000000° 00060 “ADDRESS TERM_NUMBER+8 
00000000" 00064 -ADDRESS TERM_NUMBER 
00000000 00068 - LONG 
22 3D 39 32 22 Q006C P.AAH: “ASCII \'29="'\ 
-PSECT SOWNS,NOEXE,2 
-BLKB 3 
0000000C USER_NAME : 


00109 
0010C 
00000000* 00110 
00114 -BLK 
00120 PARENT oor 
00000007 00124 TERM eaten tS 


00000000" a012¢ 
C -BLK 


-BLK 
34 PATH_LIST: 
«WORD 


00 
0000 00 
02 OF 00 
00000000 00 
GET_PROC= 

.EXTRN 

~EXTRN 

“EXTRN 


-PSECT 


of 12 
Tea ae ctataai 


«LON 
“—— TERM_NUMBER+8 


P.AAG 
SYSSGETJPIW, SYSSASSIGN 
SYSSCREMBX, SYSSDELMBX 
SYSSTRNLNM 


SCODES,NOWRT ,2 


oo 
| 


-——_—_—_———_-- --- -- --——- SS a —— = — - — 


H 4 
| LINKSUBS LINKSUBS = Phone Link Subroutines 16-Sep-1984 02:11:44 AX-11 Bliss-32 V4.0-742 Page 16 
eet 000 PHNSESTAB_LINK = Establish a Link a et 93:33:55 PHONE. SR ai INKSUBS .B32;1 a 
| OFFC 00000 ENTRY Sui LINK, Save R2,R3,R4,R5,R6,R7,R8,- ; 0567 
SE FEDC CE 9€ 0002 MOVAB Re e8ts F 
7E 046 AC 7D 0000 MOVG TARGET shee, =(SP) ; 0616 
00006 CF 08 FB 0008 CALLS 2, P PHRS AKE_PUB : 
6E 50 D 0010 MOVL ATUS ; 
00000009 BF éF D1 0001 CMPL er ATOS. #PHNS_BADSPEC + 0617 
13 12 OOO1A BNEQ 1$ : 
| 000000006 8F DD 0001 PUSHL —#PHNS_BADSPEC | ; 0618 
00006 CF O1 FB 000 CALLS #1, PANSI : 
50 000000006 &F B0 00 f MOVL #PHNS "BADSPEC. RO + 0619 
09 6— £8 O00¢F 1$: BLBS STATUS, 2$ + 0621 
6E DD 00032 PUSHL STATUS ; 
000000006 00 01 FB 00034 CALLS #1, LIBSSIGNAL : 
SA 08 BC DO 00038 2$: MOVL @PUB_ADDRESS, TP : 0622 
58 0c AA 9E 0003F MOVAB 12(TP), R11 ; 0628 
50 02 AB 3¢ 00043 MOVZWL 2(R11), RO + 0629 
58 04 AB4O 7E 00047 MOVAQ 4(R11)EROJ, RB : 
03 6B E9 0004¢ BLBC (R11), 3$ + 0631 
017C 31 0004F BRW 17$ : 
1A 6B 01 £0 00052 3$: BBS #1, (R11), 4$ : 06 
5A DD 00056 PUSHL TP : 0637 
0000G CF 01 FB 00058 CALLS #1, PHNSKILL_PUB é 
000000006 8F DD 00050 PUSHL #PHNS$_N EEDUSER + 0638 
0000G CF 01 FB 00063 CALLS #1, PAN S ENE ; 
50 000000006 &F B0 00068 MOVL #PHNS nNEEDUSER, RO : 0639 
52 0000G CF 00 00070 4$: MOVL wees _PUBHEAD, OP : 0645 
OC A2 9F 00075 PUSHAB 12(0P) : 0646 
5B DD 00078 PUSHL R11 : 
0000G CF 02 FB OOO7A CALLS Re. PHNSCMP_TARGET é 
12 50 E9 0007F BLBC : 
50 O0F4 C2 3C 00082 MOVZWL BekceP), RO : 0652 
03 12 00087 BNEQ 3§ ; 
0100 31 00089 BRW 12$ ; 
OOFS CA 50 80 0008C 5$: MOVW RO, 244(TP) > 0653 
0314 31 00091 BRWw 32§ : 0655 
54 7C 00094 6$: CLRQ USA > 0663 
08 AE 01 CE 00096 MNEGL #1, WILD_PID > 0664 
7E 7C 0009A 7$ CLRa. = : 0672 
7E 04 0009C LRL ss = (SP : 
0000° cr OF 0009 PUSHAB GET PROC : 
E D4 000A CLRL Ss =(S : 
1¢ AE. OF OO0A4 PUSHAB WILD_PID : 
01 DD 000A7 PUSHL #1 ; 
000000006 00 07 FB 000A9 CALLS ‘7, SYSSGETUPIW ; 
E 50 pO 00080 MOVL TUS : 
000009A8 BF 6f D1 00083 CMPL STATUS, #2472 > 0674 
13 OOOBA BEQL ; 
01 6— Di 000BC CMPL TATUS, #1 + 0679 
09 12 000BF BNEQ ; 
0000° CF 20 04 B8 68 2D 000C1 CMPC5 (RB), a4(R8), #32, USER_NAME, @USER_NAME+4 ; 0681 
0000" OF 00¢9 ; 
CC 12 000CC BNEQ 7$ : 
0000' CF 05 OO0CE TSTL  PARENT_PID > 0682 
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_Vv04-000 PHNSESTAB_LINK = Establish a Link 14-Sep-1984 12:53:27 PHONE . SRC CINESUBS. B32;1 
C6 1 0D2 BNEQ 7$ 
0000° CF 8B 0D4 TSTW es NUMBER 
£9 1 008 BEQL 
6 4 INCL TENTIAL 
7E 1000 8F 3C Q00DC MOVZWL #0 6. enna 
0000" CF 9F O00E1 PUSHAB £5. a MBER 
0000G CF ¢ Fe OOES CALLS PUNSTERA. CHARACTERISTIC 
AD E QOEA BLBC RO, 7$ 
54 06 OOOED INCL USABLE 
AQ 11 pope t BRB 
55 DS OOOF! 8$: TSTL POTENTIAL 
1A 12 te BNEQ 9$ 
5A DD OOOF PUSHL TP 
0000G CF 01 FB OOOF7 CALLS #1, PHNSKILL_PUB 
00000000G 8F DD OOOFC PUSHL #PHN$_NOPROC™ 
0000G CF 01 FB 00106 CALLS #1, PANSINFORM 
50 000000006 8F 00 0010 MOVL #PHNS -NOPROC, RO 
04 0010E RET 
54 DS OO10F 9$: TSTL USABLE 
1A 12 00111 BNEQ Ws 
5A DD 00113 PUSHL 
0000G CF 01 FB 00115 CALLS in. PHNSKILL_PUB 
00000000G 8F DD OO11A PUSHL aPHNs DL be 
0000G CF 01 FB 00120 CALLS , PANS 
50 00000000G 8F 00 00125 MOVL #PLNS. MAROTERM, RO 
04 0012C RET 
D4 AD 24 00 Bas 10$: MOVL #36, MBX_NAME 
D8 AD DC AD YE 00131 MOVAS  MBX_NAME78, MBX_NAME+4 
D4 AD 9F 00136 PUSHAB AME 
58 DD 00139 PUSHL 
0000v CF 02 FB 00138 CALLS #2, PHNSMBX_NAME 
7E 7C 00140 CLRQ - 
52 OOF4 CA 9E 00142 MOVAB 244(TP), R2 
52 0D 00147 PUSHL R2 
D4 AD 9F 00149 PUSHAB MBX_NAME 
000000006 00 04 FB 0014C CALLS #4, SYSSASSIGN 
6E 50 pdO 00153 MOVL RO, STATUS 
00000908 =8F 6E D1 00156 CMPL STATUS, #2312 
OE 13 0015D BEQL 
00000144 = BF 6E D1 0015F CMPL STATUS, #324 
05 13 00166 BEQL 11$ 
57 gt E9 00168 BLBC STATUS, 15$ 
E 11 00168 BRB 16$ 
D4 AD OF 68188 11$: PUSHAB MBX_NAME 
7E 7C 00170 CLRQ -(SP) 
7E ee 00172 LRL -(SP) 
7E 0100 ef C 00174 MOVZWL #256, -(SP) 
2 dd 00179 PUSHL Re 
01 DD 00178 PUSHL #1 
000000006 of FR 0170 CALLS #7, SYSSCREMBX 
6E 0 00 00184 MOVL RO, STAT 
6E D1 00187 CMPL STATUS, #36 
1A 12 0018A BNEQ 13$ 
SA DD 0018C 12$: PUSHL TP 
0000G CF 01 FB o1s6 CALLS #1, PHNSKILL_PUB 
00000000G 8F DD 0019 PUSHL sPANS NOPRIV 
0000G CF 01 FB 00199 CALLS INPANS INFORM 
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50 000000006 8F DO 0196 MOVL § #PHNS_NOPRIV, RO : 0736. : 
04 OO1A RET : : 
09 6— £8 O1A6 13$:  BLBS STATUS, 14$ : 0738 F 
6£ DD OO1A PUSHL STATUS : ; 
000000006 90 01 FB OO1A CALLS #1, LIBSSIGNAL ; : 
3 62 3C 001B2 14$ MOV2WL (R2), =(SP) + 0739 F 
000000006 0 Q1 FB 001B CALLS #1, SYSS$DELMBX : : 
6E 0 D b01B¢ MOVL RO, STATUS : : 
09 6— £8 001BF BLBS STATUS, 16$ : 0740 ; 
6E DD 001C2 15$ PUSHL STAT : ; 
000000006 00 07 FB 001C4 CALLS #1, LIBSSIGNAL : | : 
O1DA 31 001CB 16$:  BRW + 0741. F 
000000006 8F DD OO1CE 17$:  PUSHL #PHNS DECNETLINK + 0751. ; 
00006 CF 01 FB 00104 CALLS #1, PANSINFORM : ; 
56 04 AB YE 00109 MOVAB 4(R11), R6 : 0756. ; 
Oc AE FF 8F 9A 001DD MOVZBL #255, SPECIFIER_BUF : 0760. : 
10 AE 146 AE 9E OO1E2 MOVAB SPECIFIER_BUF+8, SPECIFIER_BUF+4 : | ; 
50 FO AD 9E OO1E7 MOVAB TRNLNML ST? $S$ITMBLKPTR : 0768. : 
80 OOO2Z00FF 8F 00 OO01EB MOVL #131327, (S$$ITMBLKPTR)+ : | ; 
80 10 AE 00 001F2 MOVL  SPECIFIER_BUF+4, ($$ITMBLKPTR)+ : | 
80 OC AE SE 001F6 MOVAB SPECIFIER-BUF, ($$I1TMBLKPTR)+ : | : 
80 D4 OO1FA CLRL ($$1 TMBLKPTR) + : ; 
FO AD OF OO1FC PUSHAB TRNLNMLST : 0773. ; 
7E D4 OO1FF LRL = = (SP) : | : 
0000" CF 9F 00201 PUSHAB SLAVE_TASK_DESC : ; 
0000" CF 9F 00205 PUSHAB LNM PROCESS DESC : | ; 
14 AE 02000000 8F 00 00209 MOVL 433554432, 20(SP) : 3 
14 AE 9F 00211 PUSHAB 20(SP) : | ; 
000000006 00 05 FB 00214 CALLS #5, SYSSTRNLNM : | ; 
6E 50 pO 00218 MOVL RO, STATUS : ; 
01 6E D1 OO2ZTE CMPL = STATUS, #1 : 0775. ; 
27 13 00221 BEQL ; ; 
Oc AE FF «68F 9B 00223 MOVZBW #255, SPECIFIER_BUF + 0777) ; 
FO AD OF 00228 PUSHAB TRNLNMLST : 0781 | ; 
7E D4 00228 CLRL = (SP) : | ; 
0000' CF 9F 002¢b PUSHAB SLAVE_TASK_DESC ; : 
0000" CF 9F 00231 PUSHAB LNM JOB_DESC : | : 
14 AE 02000000 8F DO 00235 MOVL  #33554432, 20(SP) : | : 
14 AE 9F 00230 PUSHAB 20(SP) : 3 
000000006 00 05 FB 00240 CALLS #5, SYSSTRNLNM : | : 
6E 50 D0 00247 MOVL RO. STATUS : : 
01 6 D1 0024A 18$:  CMPL  STATUS, #1 > 0784. ; 
31 13 00240 BEQL  20$ ; | : 
59 66 3 O0g4F MOVZ2WL (R6), RO > 0785 ; 
50 68 3¢ 00 22 MOVZWL (RB). RO : ; 
59 30 C2 0025 L2. RO, R9 : | ; 
04 AE FF 6BF «9A 00258 MOVZBL #255, 4(SP) ; : 
57 10 AE BO 00250 L_  SPECIFIER BUF +4, R7 ; 0787. : 
04 AE 20 04 86 59 2C 00261 MOVCS R9, a4(R6J, #32. 4(SP), (R7) : : 
67 boSee F F 
10 18 00269 GEQ =-:19$ ; : 
57 59 CO 00268 ADDL2 R9, R7 : : 
AE 59 ce 0 oe SUBL 2 RJ. 4(SP) : : 
04 AE 20 0000" CF 03 ¢ 0 te MOVCS #5. P.AAH, #32, 4(SP), (R7) : : 
OC AE 59 05 Al 0027B 19$:  ADDW3 #5, RO, SPECIFIER_BUF : 0788. : 
0000" CF 94 00280 20$: CLRB  —- PATH_ERROR_DONE > 0795 ; 
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v04=000 PHNSESTAB_LINK = Establish a Link 18-808-1 3b 954 :27 PHONE. SRCJLINKSUBS .B32;1 . 
FD4D F 9F 00284 PUSHAB PATH_ERROR ; 0796 
ot D4 00288 CLRL se : | 
0000° cr 9F 00 BA PUSHAB PATH_LIST : 
E 04 00 : CLRL = = (SPY : 
O0F4 CA 9F 0029 PUSHAB 244(TP) : 
20 AE 9F 00294 PUSHAB SPECIFIER_BUF : 
000000006 00 06 FB 00297 CALLS #6, UNSSNET_CONNECT : 
$f 50 DO 0029E MOVL RO, S : 
1 gE EB O02A1 BLBS STATUS, 22$ + 0798 
A DD 002A4 PUSHL : 0799. 
0000G CF 01 FB 002A6 CALLS #1, PHNSKILL_PUB 3 
03 0000' CF £9 002A BLBC = PATH_ERROR_DONE, 21$ : 0800 
OOCA 31 0028 BRW 29$ : 
00CO 31 002B 218: BRW 28$ : 
57 0000" CF 3C 002B6 22$:  MOVZWL PATH_LIST, R7 : 0807. 
59 66 3¢ 00386 MOVZWL (R6); RO + 0808 
50 68 3C O02BE MOVZWL (R8). RO : 
59 50 C2 002C1 SUBL 2 RO, RY ; 
59 20 0000" OF 57 2D 002C4 CMPC5 R7, @PATH_LIST+4, #32, R9, a4(R6) : 0807. 
04 86 002CB : | 
68 13 002CD BEQL 27$ : 
10 BE 04 B88 68 28 OO02CF MOVC3 (RB), @4(R8), @SPECIFIER_BUF +4 > 0812. 
B6 0000" oF 57 38 00205 MOVC3 R7, @PATH_LIST+4, a4( : 0813) 
04 B647 10 BE 68 28 002DC MOVC3 (RB), @SPECIFIER.BUF+4, 24(R6)CR7) + 0815. 
57 68 Al 002E3 ADDW3 (RB), R7, (R6) > 0816 | 
59 01 pd 002E7 OVL #1, OSC_CNT > 0817) 
046 AE 66 3C OO2ZEA MOVZWL (R6), PATH_LEN : 0818. 
58 04 Ab DO OOZEE MOVL  4(R65, PATA_PTR + 0819. 
57 04 AB49 7E O02F2 23%:  MOVAQ 4(R11SCDSC_CNTJ, R7 : 0822 | 
04 AE D5 002F7 TSTL PATH_LEN ; 0823 | 
11 13 OO2FA BEQL  24$ : 
SF 8F 68 91 OO2FC CMPB (PATH_PTR), #95 : 
0B 12 00300 BNEQ 24$ : 
66 B7 00302 DECw  (R6) > 0824 | 
04 AE D7 00304 DECL_ PATH_LEN > 0825 | 
68 01 AB 04 AE 28 00307 MOVC3 PATH_LEN, 1(PATH_PTR), (PATH_PTR) 3 
67 04 AE BO 0030D 24$:  MOVW = PATHTLEN. (R7) > 0827 | 
04 A? 58 DO 00311 MOVL PATH_PTR, 4(R7) ; 0828 | 
68 04 AE 3A 3A 00315 LOCC #58,~PATH_LEN, (PATH_PTR) ; 0829 | 
02 12 OO31A BNEQ 25$ F | 
51 D4 0031C CLRL sR : 
58 51 D9 OO31E 25$: MOVL 1, PATH_PTR ; 
13 13 00321 BEQL 26% : 
58 02 co 003 3 ADDL? #2, PATH PTR ; 0830 | 
67 58 04 A? A3 00326 W3  4(R7), PATH_PTR, (R7) ; 0831 
50 67 3¢ 005 B MOVZWL (R7), RO : 0332. 
04 50 C2 0032E UBL2 RO, PATH_LEN : | 
59 D6 00332 INCL DSC_CNT > 0833 | 
BC 11 00334 BRB 23$ > 0819 | 
02 AB 59 80 99 6 26$ MOVW  DSC_CNT, 2(R11) > 0835 | 
63 6B 01 £1 0033A 278 BBC 1,7(R11), 31$ : 0842 | 
F4 OAD 04 DO 0033 MOVL #4, VERIFY_STATUS > 0849 
F8 AD FC AD 9E 80 4 MOVAB RIFY_STATUS+8, VERIFY_STATUS+4 E 
56 DD 0034 PUSHL > 0851 
07 DD 00 49 PUSHL #7 ; 
A DD 00348 PUSHL TP ; 
0000v CF 03 FB 0034D CALLS #3, PHNSSEND_SMB ; 
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ment PHNSESTAB_LINK = Establish a Link 12-3 08- 1 3be 1 43:54 PHONE. SRCJLINKSUBS.B32; 1 . 3 
01 DD 00352 SHL #1 7 0852. ; 
F4 AD 3 0354 PUSHAB VERIFY_STATUS : | ; 
7E OOF4 CA 3¢ 00357 MOVZWL 244(TPY, =(SP : | ; 
00006 CF 03 FB 0035C CALLS #3, PHNSREAD_SLAVE : ; 
6E 50 DO 00361 MOVL RO, S : : 
000000006 &F 6E D1 00364 CMPL status, #PHNS_OK + 0853 ; 
14 13 00368 BEQL 0$ : ; 
0D DD 0036p PUSHL #13 + 0854) ; 
5A DD 00 gf PUSHL TP : b 
0000v CF 02 FB 00371 CALLS #2, PHNSBREAK_LINK : | ; 
6— DD 00 ut: 28$: PUSHL § : 0855. ; 
00006 CF 01 FB 00 7 CALLS #1, PHNSINFORM : ; 
50 6E BO 00370 29$: MOVL STATUS, RO ; 0856 | ; 
000000006 8F F8 BD D1 00381 30s: CMPL §@VERIFY_STATUS+4, #PHNS_OK > 0858 : 
16 13 00389 BEQL 31$ : ; 
OD DD 00388 PUSHL #13 + 0859 ; 
5A DD 0038D PUSHL TP : | : 
0000v CF 02 FB 0038F CALLS #2, PHNSBREAK_LINK : ; 
F8 BD DD 00394 PUSHL a@VERIFY_STATUS+4 + 0860 
00006 CF 01 FB 00397 CALLS #1, PHNSINFORM : 
50 F8 BD dO 0039C MOVL  a@VERIFY_STATUS+4, RO > 0861 
04 003A0 RET ; 
7E D4 003A1 318: CLRL =(SP) > 0866 
00006 CF 01 FB 003A3 CALLS #1, PHNSINFORM : 
50 00000000G 8F DO 003A8 328 MOVL § #PHNS_OK, RO : 0867 
04 OO3AF RET + 0870 
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v04-000 PHNSMBX_NAME = Build Mailbox Name 14-Sep-1984 12:53:27 PHONE ..SRCJLINKSUBS .B32; 1 
; 220 oe?) } Rsbttl *PHNSMBX_NAME = Build Mailbox Name‘ 
: $3¢ $878 1 i Functional Description: ; 
3 22 0874 1! This routine is called to build a mailbox name for use in creating 
> 934 0875 1! a communication Link mailbox. The name consists of a user 
; 22? bB58 ! name prefixed with ‘'PHN$"’. 
: 557 0878 1 | Formal Parameters: 
; 358 0879 1! user_name Address of descriptor of user name. 
; 339 0880 1! name_buf A descriptor for buffer to hold mailbox name. 
: 200 ete : } We set the Length. 
: 206 $885 1 § Implicit Inputs: 
‘ ee7 tt ! global data 
; 565 0886 1 | Implicit Outputs: 
: 208 e144 ! } global data 
; 368 0889 | ! Returned Value: 
3 : none 
; 570 0891 1! 
3; pri 0892 1 ! Side Effects: 
; 276 ood, : If a shared memory mailbox exists, a fatal error is signalled. 
: 574 0895 1 i-- 
3; of 0896 1 
; 3% 0897 1 
; oof +444 § global routine phn$mbx_name(user_name,name_buf): novalue = begin 
: 579 0900 2 bind 
; 580 0901 2 user_name_dsc = .user_name: descriptor, 
; 7H at) : name_buf_dsc = .name_buf: descriptor; 
: 583 0904 2 bind 
; 584 0905 2 name_table = ch$transtable( | 
2 ce 5 Balboa 
, Ser 0908 2 rep 11 of ('.'), 
; 588 0909 2 Tat ahersees tweet ae a 8 
3 dev 0910 2 rep 7 of ('_'), 
° 590 0911 2 ‘A ns ts) Pin ipl ie deen, ae ok be” te ts a Oe 
3 591 0912 2 i ae i ee le a a) ae 
; 592 0913 2 rep 6 of ('_'), 
: 593 0914 § ' m ee ok at aks xk aha 8 ke 
: 594 0915 ag? See? Se ee Se Fe ae a ea ean ae se 
: ae at $ rep 5 of ('_')); 
: 597 0918 2 local 
: 598 0919 2 status: long, : 
3 4.44 babe 2 local_described_buf fer (shared_mailbox_name,4+4+16); 
: 601 0992 
; 602 092 ! To build the mailbox name, we concatenate the prefix and the user name. 
; 603 0924 ! Then we run it through the translation table, converting any illegal 
; oN 4534 ! characters to underscores. 
: 606 0927 ch$copy(4,uplit byte("PHNS$'), .user_name_dscClen],.user_name_dsc(ptr], 
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ibue 000 PHNSMBX_NAME = Build Mailbox Name 14-Sep-19 4 93:13:34 PHONE. SRCILINKSUBS .83251 . BS 
; 607 928 * *,,name_buf_dscClen),.name_buf_dscCptrJ); $ 
; 608 $8 9 name_buf dsctlent"= 4+ ,user_name_ds Clénd; : ; 
; 609 0930 ch$transTate(name_table,.name_buf_dscllen],.name_buf_dsc ptr) oe, : 
: 610 09 1 -name buf —dscLlenJ,.name_buf—dsccptrJ); ; 
; oi¢ 09 g ' Now build the name of the corresponding shared memory mailbox, 3 
; 9 Oa ! MBXSPHNSusername. If a logical name exists by that name, then so $ 
; ete baa? ! does a mailbox. We can't allow that, so signal a fatal error. ; 
; 616 0937 begin : 
3 617 0938 local ; : : 
; 618 0939 trninmlst : Sitmlst_decl(items=1) : 
; eh 378 local_described_buffer(result_buffer,nam$c_maxrss); : 
3 : 
; 621 094 ch$copy(4,uplit byte('MBX$'), .name_buf_dscClen],.name_buf dsc(ptrJ, | : 
: 622 0943 3 * ',.shared mailbox _name(len],.Shared_mailbox_name[ptr]); | 3 
3 os? epee 3 shared_mailbox_nameLlen] = % + .name_buf_dsc(len]; | : 
; 625 P 0946 : Sitmlst_init(itmlst=trninmlst, 3 
> 626 P 0947 3 (itmcod=|nm$_string,bufadr=.result_buffer(ptrJ, : 
3 eH bare : bufsTz=nam$c_maxrss,retlen=result_buffer)); ; 
; 629 P 0950 3 status = $trninm(attr=%Zref(lnm$m_case_ blind) : 
: 630 P 0951 3 tabnam=$descriptor ('LAMSSYSTEM'), | : 
: 631 P 0952 3 Lognam=shared_mailbox_name, 3 
: 632 P0953 3 acmode=%ref(psl$c_exec), 3 
s 635 0954 3 itmlst=trninmlst); F 
> 634 0955 3 if .status eqlu ss$_normal then 3 
3; 635 0956 3 signal (phn$_sharedmbx) 3 
; 636 0957 3 else | 3 
3; 637 0958 3 if .status nequ ss$_nolognam 3 
; 638 0959 3 then check(.status); 3 
; 639 0960 2 end; 3 
: 640 0961 2 | $ 
; 641 0962 2 return; 3 
3: 642 0963 2 : 
3; 643 0964 1 end; 3 
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 V04-000 PHNSMBX_NAME = Build Mailbox Name 14-Sep-1984 12:53:27 PHONE . SRCJLINKSUBS .B32; 1 (8) 
4 4 48 50 OO0F4 P.AAJ: .ASCII \PHNS\ : 
4 58 42 4D 000F8 P.AAK: ASCII \MBX$\ : 
4D 45 54 53 59 53 24 4D 4E 4C OOOFC P.AAM: ASCII \LNMSSYSTEM\ : 
00106 .BLKB 2 
0000000A 00108 P.A .LONG 10 : 
00000000" 0010C ADDRESS P.AAM : 
NAME _TABLE= P.AAI 
.PSECT $CODE$,NOWRT,2 
07FC 00000 -ENTRY PHNSMBX_NAME Save R2,R3,R4,R5,R6,R7,RB,R9,-; 0898 
5E FECO CE 9€ 00002 MOVAB =320(SP), SP : 
57 04 AC 00 00007 MOVL § USER_NAME, R7 + 0901 | 
56 08 AC DO 0000B MOVL NAME-BUF, R6 : 0902 | 
EO AD 18 DO 0000F MOVL #24, SHARED MAILBOX NAME + 0920 
E4 AD E8 AD 9E 00013 MOVAB SHARED _MAILBOX_NAME#8, = g 
SHARED “MAILBOX ~NAMES4 : 
SA 67 3c 00018 MOVZWL (R7), R10 : 0927 
59 66 3C 0001B MOVZWL (R6), RO : 0928 
58 04 A6 00 OOO1E MOVL  4(R6S, RB : 
59 20 0000" CF 04 2C 00022 MOVCS #4, P.AAJ, #32, R9, (RB) : 
68 00029 : 
0D 18 0002A BGEQ 1$ : 
58 04 CO 0002C ADDL2 #4, RB : 
59 04 C2 0002F SUBL2 #4, RO ; 
59 20 04 87 3A 2c 00032 MOVCS R10, a4(R7), #32, R9, (RB) : | 
ee 67 04 Al 00039 1$: ADDW3 #4, (R7), (R6) : 0929. 
0000" CF 20 04 86 66 2E 9003p MOVTC (R6), @4(R6), #32, NAME_TABLE, (R6), @4(R6) ; 0931. 
08 AE FF 8F 9A 00048 MOVZBL #255, RESULT_BUFFER ; 0940 | 
OC AE 10 AE 9E 0004D MOVAB RESULT BUFFER+8, RESULT_BUFFER+4 : 
59 66 3C 00052 MOVZWL (R6), RO 0942. 
SB EO AD 3¢ 00055 MOVZ2WL SHARED_MAILBOX_NAME, R8 : 0943 
57 £4 AD DO 00059 MOVL SHARED “MAILBOX-NAME+4, R7 ; 
58 20 0000" CF 04 2C 0005D MOVCS P.RAK, #32, R8, (R7) : 
67 00064 ; 
OD 18 00065 BGEQ 2$ : 
57 04 CO 00067 ADDL2 #4, R7 : 
58 04 C2 0006A SUBL2 #4, RB ; 
58 20 04 B86 39 2c 0006p MOVCS R9. a4(R6), #32, RB, (R7) : 
EO AD 66 04 Al 00074 28: ADDW3 #4, (R6), SHARED MAILBOX _NAME > 0944 | 
50 DO AD 9E 00079 MOVAB TRULNMLST , $$1 TMBLKP > 0948 
80 000200FF 8F DO 0007D MOVL #131327, (SSITMBLKP RD : 
80 OC AE D0 00084 MOVL RESULT_BUFFER+4, (S$1TMBLKPTR)* : 
80 08 AE 9E 00088 MOVAB RESULT BUFFER, (SS$ITMBLKPTR)+ ; | 
80 D4 et CLRL ($$1TMBLKPTR) + : 
DO AD 9F OOOBE PUSHAB TRNLNMLST > 0954 
08 AE 01 pO 00091 VL #1, 8(SP) ; 
08 AE 9F 00095 PUSHAB 8(SP) : 
£0 AD 9F 00098 PUSHAB SHARED _MAILBOX_NAME : 
0000" CF 9F 0009B PUSHAB AL ; 
10 AE 02000000 8F DO 0009F MOVL W385 4432, 16(SP) ; 
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PHNSBREAK_LINK = Break a Link 14-Sep-1984 12:53:27 PHONE .S RCI 
9369 ] Fs Rsbttl *PHNSBREAK_LINK = Break a Link’ 
0967 1 "Funetionet Description: 
0968 1} This routine is called to break a Link between us and some other 
0969 1! person or node. 
0970 1! 
0971 1 | Formal Parameters: 
9444 1 i target_pub The address of the PUB describing the Link. 
0973 1! smb_type The type code of the steering A tga to be sent 
0974 1! as a reason for ta bay the Link 
346) ! smb_msg An optional message text for the steering message. 
0977 1! Implicit Inputs: 
0978 1 | global data 
0979 1! 
0980 1 ! Implicit Outputs: 
0981 1! global data 
0982 1 | 
0983 1 ! Returned Value: 
0984 1! 
0985 1! 
0986 1 | Side Effects: 
0987 1! 
0988 1 i- 
0989 1 
0990 1 
b992 $ global routine phn$break_Link(target_pub,smb_type,smb_msg): novalue = begin 
0993 2 bind 
0994 2 tp = .target_ pup 
0995 2 target_tsb = PP ou b_ “tsb]: 
0996 2 
0997 2 local 
0998 2 status: long; 
0999 2 
1000 2 builtin 
1001 2 argptr; 
1002 2 
1003 2 
44 2 ! First we send a message with the reason for breaking the Link. 
1306 ; callg(argptr() ,phn$send_smb) ; 
1008 § ! If this is a remote Link, we have to send the slave a special steering 
1009 i message to tell it to go away. If this message wasn't sent above, then 
+ 3 2 ' do it now. Then we can clear away the network logical Link. 
gig § if .target_tsb{(tsb_v_remote] then ( 
1013 3 if~.smb_ tye. nequ smb__slave_done then 
1014 3 n$send_smb(tp,smb_-slave_done); 
1015 P status = PSdassgnTchan=.¢pLpiB_ w _channel J); 
1016 check (.status 
1018 
3 : Wises we can kill the PUB representing the Link we have broken. 
1021 phn$kill_pub(tp); 
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vous 0b0 PHNSBREAK_LINK = Break a Link 12-8081 ope 03:55:55 PHONE. SRCJLINKSUBS.B32;1 
70 10 $ return; 
; 70 10 
704 1024 end; 
.EXTRN SYSS$DASSGN 
0004 00000 .ENTRY PHNSBREAK_LINK, Save R2 
52 04 ac 00 00002 MOVL TARGET : 
O000v CF 6C FA 00006 CALLG (AP) , PHNS SEND. SMB 
e7 Oc A2 €9 00008 BLBC 12(R3) 
D 08 AC D1 OO000F CMPL SMB_TYPE, #13 
09 13 00013 BEQL . 
0D oD 00015 PUSHL #13 
52 DD 00017 PUSHL R2 
0000v CF 08 FB 00019 CALLS #2 PHNSSEND SMB 
7E O0F4 C2 3¢ O001g 1$: MOVZ2WL 244(R2), -(SP) 
000000006 00 01 FB 0002 CALLS #1, See Soassen 
09 50 EB 0002A LBS. STATUS, 2$ 
50 DD 0002D PUSHL STATUS 
000000006 00 01 FB 000¢F CALLS #1, LIBS$SIGNAL 
52 DD 00036 28: PUSHL R2 
00006 CF 01 FB 00038 CALLS #1, PHNSKILL_PUB 
04 00030 ET 
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A 


AUS WN OO DNAOUESWN (OO OVNOUS WN -O0@ 


WAWANWInononononononononond 3] 3 3 3 3 SS OOO 


SQN NN NNN NSS 
on 


Be Se Be Oe Ge Se Be Ge ee Se Be Be BH Se Se Se Be ee Be Be Se Se Ge Be He 
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REAK_CALL = Break Link to Person We Are Ca 14-Sep-19 2:53:27 PHONE .S RCI INKSUBS. B32;1 (10) 


Rsbttl "PHNSBREAK_CALL = Break Link to Person We Are Calling’ 


! Functional Description: 

: This routine is called to break the Link to someone we are 
currently trying to call. It was made a seperate routine because 
it is done in a lot of places. 


x 
4 


Formal Parameters: 
none 


WAAIIwrorereorn Zz Zz 


Fwn- OVOOnou 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
non 


Side Effects: 


global routine phn$break_call: novalue = begin 


local 
op: ref pub; ! Pointer to our PUB. 


We have to clear the Felling flag and busylink in our PUB because we 

will no longer be calling the person. PHNSBREAK_LINK is then called to 

do its usua faa yoy | stuff. Finally, we better cancel any outstanding 
timer requests, in case there is one waiting to ring the person's phone. 


= .phn$ “KT 
ep plpub=v cott Fag) = fa 
n 


—ODOWONAVESWN $$ O OONOULS WN" OVOnou 


6 break _Link(.o (pub { > Link],smb__hungup) ; 
6 opLpub. | t Busylink) = : ° 
64 Scant im( 
65 return; 
66 
67 end; 
-EXTRN SYSSCANTIM 
0004 00000 ENTRY PHNS$BREAK CAL. Save R2 3 1049. 
52 0000G CF oO BOOS MOVL PHN$GQ PUGHEA P ; 1060 
OOFO C2 08 8A 0000 BICB2 #8, 240(0 ; 1061 
09 dD 0000C PUSHL 4&9 : 1062 
00F8 C DD OOO00E PUSHL 248(0 : 
AC AF 02 FB 00012 CALLS #2 PHNSBREAK_LINK ; 
Oor8 ¢ b4 0016 CLRL = 248 (OP) > 1063 
7E C OOO1A CLRQ - (SP) : 1064 
00000000G 00 02 FB OO0IC CALLS #2, SYSSCANTIM : 


Be Be Oe Oe Be Be Oe SH Oe Be Be SHS Be Be SHH HSH Se Be Se Se Se FH Se THF Se Oe Be Se Be Be Se Se Se Se Se Se Se Se Se Se See Se Se Se Se Se THT Se Se eae 


Lae Sues 


3; Routine Size: 


5 
LINKSUBS = Phone Link Subroutines 16-Sep-1984 og: ]t 
PHNSBREAK_CALL = Break Link to Person We Are Ca 14-Sep-1984 
04 00023 RET 


36 bytes, Routine Base: S$CODE$ + 055C¢ 


44 
:27 


AX-11 
PHONE .SR 


SRC 


s-32 V4.0-742 
CJLINKSUBS.832;1 


roe 


3; 1067 


— 


SE TE PER Me RET Oe Se 
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v04- PHNSSEND_SMB = Send Steering Message 14-Sep-1984 12:53:27 PHONE.SRCJLINKSUBS .B32;1 (11) Vv 
; 750 1968 1 Zsbttl "PHNSSEND_SMB = Send Steering Message‘ : 
s Fo) 198 1 !+4 ; 
* : ¢ 13 0 1 ! Functional Description: : 
ee. 1071 1! This routine is called to send a steering message to another person : 
; 754 1z6 1! or node represented by a PUB. The message that is sent consists of ; 
; 5 It? : } up to three parts, as follows: : 
Ff 5 1075 1! Ve The 1=byte steering message code. ; 
; 758 1076 1! ; 3 
; 759 1077 1! 2. Our own node string, representing the sender of : 
; roo 4 : } the message, followed by an eofrom character. : 
: 76 1080 1! 3. The optional message text. ; 
; 76 1081 1! 3 
: 764 1088 1 ! Formal Parameters: : ; | ; 
; 765 1085 1! target_pub Address of the PUB representing the destination. : 
; 766 1084 1! smb_type The seer aouseus type code. ‘ 
; per WOE : } smb_msg Address of descriptor of optional message text. : 
; 769 1087 1 ! Implicit Inputs: : 
; 770 1088 1! global data ‘ 
3; 771 1089 1! 3 
. ir 1090 1 ! Implicit Outputs: ; 
3; 1091 1! global data : 
3; 774 1036 1! : 
s rs 1095 1 ! Returned Value: : 
: 776 1094 1! none : 
s @77 1095 1! : 
; 778 1096 1 ! Side Effects: ; 
; 779 1097 1! : 
; 780 1098 1 !<- : 
: «781 1099 1 ; 
; 782 1100 1 : | : 
5 Ay 1183 § global routine phn$send_smb(target_pub,smb_type,smb_msg): novalue = begin : 
; «785 1108 2 bind 3 
: 786 1104 2 tp = target pub: pe: : 
3; fer 1105 § target_tsb = tp[pub_b_tsb]: tsb, | 3 
: 788 1106 smb_msg_dsc = .smb_msg: descriptor; 3 
; 789 1107 2 : 
; 790 1108 § local : 
; 791 1109 status: long, : . 
; 792 1110 2 op: ref pub, ; ' Pointer to our PUB. : 
; 793 1111 § asq_buf: vector(phn$k_mbxsize,byte], 

3; 794 Wig buf_i: sone . 
> 795 111 iosB: block(8,bytel; ; 
; 796 1114 : 
3; 797 1115 builtin 3 
; 798 1116 nul lparameter; : 
3; 799 1117 : 
: 800 1118 ‘ , : 3 
; 801 1119 ! First we have to build the message that we are going to send. Begin : 
; #8 1139 ! with the message type code. : 
: 80 1121 3 
; Boe 1156 buf_i = 0; : 
: 805 11 : 
; 806 1124 msg_buf(.buf_iJ = .smb_type<0,8,0>; : 


ee. 
LJWK Sues SUBS = Phone Link Subroutines 16-Sep-1984 06:14:58 AX-11 Bliss-32 V4.0-742 Page 32 
v04-000 SEND_SMB = Send Steering Message 14-Sep-1984 12:53:27 PHONE. SRCIJLINKSUBS.B32; 1 (11) 
; 807 inc (buf_i); 


! Now include our spec, representing the sender of the message. 
op = .phn$gq_pubhead(0); 
begin 


bind 
our_tsb = sotpus b.tepi tsb, : 
our_spec_dsc = our_tsbltsb_q_tkndsc,0]: descriptor; 


If the token count is above 2 we have a ‘'pass through" connection so 
develope the reverse routing back to us. But, if we are a slave task then 
the routing has already been performed. In which case we don't do anything 


NAUESWNOOONOU WK 


because we have arrived at the desired local location. Being the slave task 
is when the OP pub has the total routing contained. Any other time it would 
be our own home node specification. 


if (.target —— witkncount] gtru 2) and 


G0 G9 Cd Co CD CD Cd Cd Cd 00 OD CD Cd CD CD OD CD Cd OD CD OD Cd OD CD CD CO. CD CD CD CD CD CO 
WAWIWARIPNPIPIPININONUNYNN 2 2 OOOO Ow OO 
VEUN OO OONAUS WN —OVOONAULS WN O0MW 


SIDS OS DS DE DS DDS DDD TT Be BS BB EE BE PWN worrrnrn_ a Zz Zz 


LI 
PH 
; 11 
; 11 
; 11 
; 11 
: 11 
; 11 
; 11 
; 11 
$ 11 
; 11 
3 11 
; 11 
: 11 
: 1138 
; 1139 
: 1140 
3 1141 
; 11 ¢ 
; 11 4 (.our_tsb(tsb_w_Ekncount] lequ 2) then ( 
; 1144 4 decr node_index from .target_tsb(tsb_w_tkncount] - 2 to 1 do 
3 1145 5 begin 
; 1146 5 bind ; 
5 1147 5 node_dsc = target vip ee os -node_index]: descriptor; 
: 1148 5 ch$move(vnode_dsc{len], .node_dscC(ptrj, msg_bufl.buf_iJ); 
; 1149 5§ buf_i = .buf_7 + .node_dscClend; 
: 1150 4 end; 
; 83 1151 3); 
: 83 11 ; 3 ‘ 
; 83 11 3 ch$move(.our_spec_dscClen],.our_spec_dsc(ptrj.msg_bufl.buf_iJ); 
; 836 1154 3 buf_i =_.buf_i_+ Vour_spec_dsc(Ten]; 
s 837 1155 3 msg_bufC.buf_i] = eofrom; 
; 838 1156 3 inc (buf_i); 
5 39 1157 2 end; 
; 840 1158 2 : aks 
; 6841 1159 2! Finally, if there is optional message text, we have to move it into 
; a " ? 2! the buffer. Make sure we don't go off the end of the buffer. 
: 844 1162 : if not nullparameter(3) then ( 
> 4845 1163 H lo 
; 846 1164 Length: Long; 
; 847 1165 3 : ; 
; 848 1166 3 Length = minu(.smb_msg_dscClen],phn$k_mbxsize-.buf_i); 
: 849 1167 3 chSmove(. Length, .smb_msg_dsc(ptr »msg_buf(.buf_iJ); 
; 850 1168 buf_i = .buf_i + .length; 
; 851 1169 ); 
; 826 1170 
3; 8 1171 2 ! Now we 7 up depending upon whether it's a local or remote message. 
; 854 1176 ! If it’s local, we can just send the monseg? to the user's receive 
3 $2? BT ! mailbox. If we get an error doing so, tell the user. 
3 Gor 1175 if not .target_tsbltsb_v penetes then ( 
; 858 P 1176 status = SqiouTchans. tp pub_w_channel] 
; 859 P1177 func=io$ writevblk + io$m_now, 
: 860 P 1178 iosb=ios 
: Bol P 1179 pl=msg_buf, 
° o¢ 1180 2=,but_ ° - 
; 86 1181 if .status nequ ss$_normal or .iosb(0,0,16,0] nequ ss$_normal then 


Laux sues 


-000 

; 864 1186 

; 865 11 ) else ( 

; 866 1184 

; 867 1185 

; 868 1186 

; 869 1187 

: 870 P 1188 

s 871 P 1189 

; 1G P 1190 

3; BT P 1191 

; 874 fe 1136 

; 875 119 

; 876 1194 

; 877 1195 

; 878 1196 2); 

; 879 1197 2 

: 880 1198 2 return; 

; 881 1199 2 

; 882 1200 1 end; 
OC AE46 
OC AE46 


LINKSUBS = Phone Link Subroutines 
PHNSSEND_SMB = Send Steering Message 


st 


if 


phn$Sinform(phn$_Linkerror); 


5 
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Seize V4.0-7 
PHONE «SR 


It is a remote send. ALL we have to do is send the message over the 


logical Link. 
atus = saitemae age decnetefn, 


C une=ob Cpub_w 2 panda 


func= 1° set ifevbl 


OFFC 00000 

5E FEF8 CE 9€ 00002 
58 04 AC 00 00007 
5A OC AB 9Y9E 00008 
OC AC DD OO00F 

56 D4 00012 

OC AE46 08 AC 90 00014 
56 D6 OOO1A 

50 0000G CF dO 0001C 
50 0c cO 00021 
59 04 AO YE 00024 
02 02 AA Bi 00028 
23. 1B 0002C 

02 02 AO 861 0002F 
1D 1A 0003< 

58 02 AA 3C 00034 
58 D7 00038 

12 11 QOO3A 

57 04 AA4&8 43 Bpe7t 
06 = 87 67 ¢ 0041 
50 67 3C 00048 
56 50 CO 00048 
EB 58 5 OO04E 
04 «BY 69 $8 00051 
50 69 3C 00058 
56 50 CO 4 FE 
OC AE46 94 QO0S5E 

56 D6 BaneE 

03 6C 91 00064 
29. =«C«*F 44994 

0c 8 6AC re 0069 

24 135 0006C 


If we get an error, tell the user. 


~-EXTRN SYS$QIOW 


RIO/RIT SMB, Save R2,R3,R4,R5,R6,R7,R8,R9,- 


RLS SP 
TARGET on R11 
12cR 113, R10 

ahs 


BU 
SMB_TYPE, MSG_BUF (BUF _IJ 
PHN$GQ_PUBHEAD, OP 


2(R10), NODE. INDEX 


) CNOD 43 INDEX], R7 
(R73, MSG_BUFCBUF_1) 


X, 1$ 
(R95), MSG_BUFCBUF _1) 
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LwK Sues LINKSUBS = Phone Link Subroutines 19-3007 138% Og] 4:86 AX-11 Bliss<-32 V4.0-742 Page 35. ; 
v04-000 PHNSFORCE_LINKS = Force Links to New Person 14-Sep-1984 12:53:27 PHONE .SRCJLINKSUBS .B32;1 (12) vi 
; 884 1201 1 %sbttl "PHNSFORCE_LINKS - Force Links to New Person’ ; 
; 885 1 8 1 !+¢ 3 
; 886 1205 1 ! Functional Description: : 
: 887 1206 1! This routine is called when a new person enters the conversation ; 
>; 888 1205 1! as a result of answering our call. We need to inform everyone ; 
; 889 1 88 1} else in the conversation about the new person, and also inform ; 
; 890 1207 1! the new person about them. This routine is the principle vehicle $ 
3 $3) ; o8 ! } for setting up conference calls. : 
; 89 1210 1 ! Formal Parameters: 3 
; 894 1211 1! new_pub Address of new person's PUB. | ; 
; 895 1 \¢ 1! : $ 
; 896 1215 1 ! Implicit Inputs: : 
; Oy 1214 1! global data : 
; 898 1216 1! , 3 
; 899 1216 1 ! Implicit Outputs: : 
; 900 tery 33 global data ; 
; 901 1218 61 : 
; 902 1219 1 ! Returned Value: | : 
; 903 1220 1! non 3 
; 904 1221 1! : 
; 905 1222 1 ! Side Effects: 3 
; 906 1223 1! 3 
s 9Or 12246 1 !-- : 
; 908 1225 1 : 
3; 909 1226 1 ; PF 
3 ay \sst $ global routine phn$force_lLinks(new_pub): novalue = begin : 
; 912 1229 2 bind i 
s DIS 1230 2 np = .new_pub: pub. 3 
: 914 12351 2 new_tsb = npCpub_b_tsbJ: tsb; : 
s 915 1232 2 3 
; 916 1233 2 local $ 
: 917 1234 2 p: ref pub; F 
; #918 1235 2 $ 
: 919 1236 2 , : 
: 920 1237 2 ! We scan the PUB chain (but not our own), looking for people in the 3 
; 9s) 1538 § ! current conversation. Make sure not to find the new person's PUB. : 
; 925 1240 2 p = _..phn$gq_pubhead([0); ; 
: 924 1241 3 until .p eqla phn$gq pubhead do ( 3 
: 925 seg 3 if not .plpub_v_temporary] and 3 
: 926 1243 3 not .pCpub_v_uhaveheld] and 3 
s Per 1244 4 (.p neqa np) then ( 3 
s Pes 1245 4 : 
3; 929 1246 4 ! We found a PUB. Tell this person about the new guy. F 
: 930 1247 4 ! Tell the new guy about this person. : 
s 95) *1248 4 : 3 
3 338 1249 4 bind 3 
3 ti 1$20 ? person_tsb = plpub_b_tsb]: tsb; 

3; 935 158) 4 phn$send_smb(.p,smb__forced_link,new_tsb [tsb q_tkndsc,0]); 

: 4) 1s27 4 phn$send_smb(np,smb__forced_Link,persSon_tsbL(tsb_q_tkndsc,0]); 

; 938 1255 ; , 

; 939 1256 p = .pCpub_l_flink]; 

: 940 1257 2); 


B 6 
LINKSUBS LINKSUBS = Phone Link Subroutines 1p=se0= 138% Og 14:36 AX=11 Bliss-32 V4.0=-742 
v04-000 PHNSFORCE_LINKS = Force Links to New Person 14-Sep-1984 12:53:27 PHONE. eR RCI INKSUBS.832;1 
> 941 1258 
; 94 1259 return; 
: 94 1260 
3 944 1261 1 end; 
000¢ 00000 .ENTRY PHNSFORCE_LINKS, Save R2,R3 
53 04 ac 0c C1 00002 ADDL3 #12, NEW PUB RS 
52 00006 DF D0 00007 MOVL.  @PHN$GO PUBHEAD. 
50 00006 CF 9E 0000C 1$: MOVAB PHN$GQ_PUBHEAD, aD 
50 52 D1 00011 CMPL P, RO ~ 
2F 13 00014 BEQL 3 
24 OOFO C2 02 £0 00016 BBS #2, 240(P), 2$ 
iF OOFO C2 €E8 O00IC BLBS  240(P), 2$ 
04 AC 52 D1 00021 CMPL P, NEW_PUB 
19 13 00025 BEQL = 
04 A3 9F 00027 PUSHAB 4(R3) 
11 DD 0002A PUSHL #17 
52 DD 0002C PUSHL P 
FEDC CF 03 FB O002E CALLS #3, PHNSSEND_SMB 
10 A2 9F 00033 PUSHAB 16(P) 
11 DD 00036 PUSHL # 
04 AC DD 00038 PUSHL NEW _PUB 
-FECE CF 03 FB 00038 CALLS #3, PHNSSEND_SMB 
52 62 D0 00040 28: MOVL (P), P 
C7 11 00043 BRB 1$ 
04 00045 3$ RET 


; Routine Size: 70 bytes, Routine Base: $CODE$ + 0671 
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AA 


ED_LINK = Handle For 


a Link to a 


' Formal Parameters: 
from_msg 


global data 


Implicit Outputs: 
global data 


Returned Value: 


' 

i 
i 
' 

i 
i 
i 
' 

i 
i 
i 
i 
i 
suai Inputs: 
i 
i 
i 
i 
i 
i 
i 
; Side Effects: 
le 


bind 
from_msg_dsc 


BAUIEWR OO OONAUE WN 0 OONAULS WN OOONAUE Wr 


1 

1 

1 

1 

1 

1 

1 

1 
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1 
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1 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

2 

2 

2 

2 

2 local 

2 status: lon 
2 third_party_ 
2 sender_tsb: 
2 third-party. 
2 tp: ref pub, 
2 p: ref pub; 
2 

2 

2 

; 


BDOOOCOCOC OOO OOOO OO OWWWOWOWWOWWO NNN NNN NNNOOOOOOAOA 2 


' the sender's spec. 
! the spec of the th 


third_party_dsc(ptrJ 
third_party_dscClen] 


' to parse both of t 


ee ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee: ) 
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4; - Phone Link Subroutines 


ced Link Message 


Functional Description: : . 
This steering message routine handles the forced_link message, 
which someone sends us when fhey want to force us to establish 

s 


third party. Th 


6 
1$-sep-19 4 Og] 4:38 AX=1 
14-Sep-1984 12:53:27 


Bsbttl "PHNSFORCED_LINK = Handle Forced Link Message’ 


is done by the person responsible 


for setting up a conference call. 


The address of a descriptor of the message. It 


consists, as 
spec fol lowe 


usual, of the sender's node/user name — 
d by an eofrom character. Following this 


is the node/user name spec of the person we are being 
forced to Link to. 


= .from_msg: de 


dsc: descriptor, 
tsb, 
tsb: tsb, 


global routine phn$forced_lLink(from_msg): novalue = begin 


scriptor; 


! Pointer to third party's PUB. 


! We begin by rebuilding the from_msg descriptor so that it only describes 


We build a new descriptor, third_party_dsc, to describe 


ird party. 

= ch$find_ch(.f 
eo 

= .from_msg_dsc 


heir specs. 


rom_msg_dscClen],.from_msg_dscCptrJ, 

from) +1; 

Clen] - (.third_party_dscCptr] - 
rom_msg_dsc(ptr]); 


from_msg_dscClen] = .from_msg_dscClen] - .third_party_dscllen] - 1; 
! Now we make TSBs for both the sender and the third party, because we need 


status = phn$make_tsb(from_msg_dsc,sender_tsb); 


1 Bliss-32 V4.0-742 
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check (.statu 
status = mel tsb(third_party_dsc,third_party_tsb); 
check (.status); 
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! Now we have to scan the PUB chain and make sure that we do not already 
! have a Link to the third party. If so, just ignore the message. 


p = .phn$gq_pubhead(0); 
until P, eate phnsgq. pubhead do ( 
f phn cme target (otpub b_tsb],third_party_tsb) then 


‘. p= splpub.L. tink): 


! Now we establish a Link to the third eer We have to remember to 
i make their PUB permanent, and to assign them a viewport. If anything 
i prevents this, just bag the Link. 


status = phn$estab_Link(third_party_tsb(tsb_q_tkndsc,0],tp); 
if .status nequ phn$_ok then 
return; 
tpCpub_v Palen ireck os 
status = phn$fres screen(false); 
if .status nequ phn$_ok then ( 
phn$brea Mink. tp,smb__hungup) ; 
, return; 


! Finally, inform the user about the third party, including the sender's 
| name and the third party's name. 


phn$inform(phn$_confcall, 
sender_ tsb(tsb _a_tkndsc,.sender_tsb Ctsb_w_tkncount]], 
third. _party_tsb(tsb_q_tkndsc,.third_party_tsbltsb_w_ “tkncount]J); 


return; 
end; 
003C 00000 -ENTRY PHNSFORCED_LINK, Save R2,R35,R4,R5 
55 00000000G 8F D0 00002 MOVL #PHN e 
54 00000000G 00 9€ 00009 MOVAB LIBSSIGNAL, R4 
5E FE2C CE 9E 00010 MOVAB -468(SP), SP 
52 04 AC 00 00015 MOVL FROM_MSG, R2 
B2 62 00 3A 00019 LOCC +f TR2), a4(R2) 
02 12 QOO1E BNEQ 
51 D4 B00s8 CLRL RT 
FC AD 01 Al 3 000 ¢ 1$ MOV 1(R1), Ho PARTY_DSC+4 
50 04 A2 FC AD C3 000 SUBL THIRD_PART Y BSC+4,~4(R2), RO 
AD 50 6¢ Al 0002D ADDW Rete RO, TAIRD _PARTY_DSC 
50 6 3 000 ¢ MOVZWL (R2), RO 
51 F8 AD C 4 MOVZWL THIRD PARTY_DSC, R1 
50 51 ¢ Oa sets R1, RO 
62 50 01 A35 00035C SUBW #1, RO, (R2) 
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00 


$C 
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E8 CE 9F 00040 
52 DD 00044 
9 FB 00046 
DO 00048 
53 £8 ier 
53 0D 00051 
01 FB 00053 
04 AE 9F 00056 
F8 AD YF 00059 
Q2 FB 0005C 
59 DO 00061 
23 E8 Bones 
53 DD 00067 
01 FB 00069 
00G CF 00 0006C 
00G CF 9E 00071 
2 Di 00076 
13 13 00079 
04 AE 9F 00078 
OC A2 YF QOO7E 
02 FB 90081 
50 €8 00086 
6¢ DO 00089 
E3 11 0008C 
5E 0D O008E 
OC AE 9F 00090 
02 FB 00093 
50 DO 00098 
53 D1 00098 
3E 12 OO09E 
6E DO Q00A0 
04 8A QO0A3 
7E D4 OOOA8 
01 FB QOOAA 
50 DO QOOAF 
53 D1 00082 
OA 13 00085 
09 DD 00087 
52 0D 00089 
02 FB 00088 
04 000C0 
06 AE 3 000C1 
08 AE4O 7F 000C5 
16 CD 3 Booce 
18 CD40 7F QOOCE 
00G 8F DD 00003 
03 FB 00009 
04 OOODE 
ODES + 0687 


2$: 


tw 
ne 


5$: 


6$: 


NDER_TSB 


PHNSMAKE_TSB 
STATUS 


us 
#1, LIBSSIGNAL 
PHN$GQ_PUBHEAD, P 
PHN$GQ_PUBHEAD, RO 
e RO 
THIRD PARTY_TSB 
#2, PHNSCMP_TARGET 
RO, 7$ 
(PS, P 
4$ 
SP 
THIRD_PARTY_TSB+4 
#2, PANSE STAB_LINK 


A 
ATUS, R5 
TP, R2 
eh ‘pepe 


STATUS, R5 
6$ 
#9 


R2 
#2, PHNSBREAK_LINK 


THIRD_PARTY_TSB+2, RO 
THIRD PARTY TSB+4(RO) 


SENDER_TSB+2, RO 
SENDER TSB+4(RO) 
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#1, PHNSFRESH_SCREEN 
RO, STATUS 
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Lexemes/CPU-Min: 32221 
pee” | Used: 298 pages 
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Luc Sues LINKSUBS = Phone Link Subroutines | 1o~ge0= 138% 937] 11:44 AX=11 Bliss-32 V4.0-742 Page 40 
| -000 PHNSFORCED_LINK = Handle Forced Link Message 14-Sep-1984 12:53:27 PHONE. SRC SEinesuBs- B32;1 (13) 
| -EXTRN LIBSSIGNAL 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SPLITS gic 8 ovEs »NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: SOWNS i @- WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
|; SCODES 194 NOVEE ‘NOWRT, RD; EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
a ae ae et ee Symbols -o<<e-<- Pages Processing 
: File Total Losded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 47 0 581 00:00.7 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OFTIMIZE)/LIS=LIS$:LINKSUBS/OBJ=OBJ$:LINKSUBS MSRC$:LINKSUBS/UPDATE=(ENH$:LINKSUBS) 
Size: 1942 code + 588 data bytes 
Run Time: OE 
Elapsed Time: 01: 76. 
Lines/CPU Min: 3044 
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